5-1  ȫֹ̡
˵
ڹнģ飺Form1ģ飬Form2ģ飬Module1׼ģ顣УForm1Form2ֱͼ5-2abʾģзֱọֹ̈̄F1_test(a As Form)F2_test(a As Form)M_test(a As Form)£
Form1£
    Public Sub F1_test()
        Me.Label1.Text = "ִForm1F1_test"    'Label1
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f2 As New Form2
        f2.Show()
        Call F1_test()
        Call M_test()                  '׼ģжPublic̿ɲģ
End Sub
Form2еȫֹF2_test£
Public Sub F2_test()
   Form1.Label2.Text = "ִForm2F2_test"   
 'Form1Label2
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Call F2_test()        'ģеPublic̱Ӵģ
End Sub
Module1еȫֹM_test£
    Sub Main()
        Dim f1 As New Form1
        f1.Show()
    End Sub
    Public Sub M_test()
        Form1.Label3.Text = "ִModule1M_test"     
'Form1Label3
End Sub
